1000 X=X+1:IFX=1THENLOAD"WIPER MC",8,1
1010 REM **************
1020 REM *            *
1030 REM * WIN-SCREEN *
1040 REM *   WIPER    *
1050 REM *            *
1060 REM *    DEMO    *
1070 REM *            *
1080 REM *     BY     *
1090 REM * MIKE  BENN *
1100 REM *            *
1110 REM **************
1120 REM
1130 REM *************
1140 REM *           *
1150 REM * VARIABLES *
1160 REM *           *
1170 REM *************
1180 REM
1190 REM SA = SCREEN ADDRESS
1200 REM MD = SCREEN MODE
1210 REM CH = WIPE CHARACTER
1220 REM CS = CHARACTER SET
1230 REM CC = CHARACTER COLOUR
1240 REM B0 = BACKGROUND COLOUR 0
1250 REM B1 = BACKGROUND COLOUR 1
1260 REM B2 = BACKGROUND COLOUR 2
1270 REM BR = BORDER COLOUR
1280 REM WP = WIPE TYPE
1290 REM DV = DEVICE (TAPE=1/DISK=8)
1300 REM
1310 REM ** LOAD PARTS **
1320 REM
1330 DV=8
1340 SYS49155,"WIPER CHRS",DV,14336
1350 SYS49155,"WIPER WIN1",DV,16384
1360 SYS49155,"WIPER WIN2",DV,17384
1370 REM
1380 REM ** CHARACTER WIPES **
1390 REM
1400 SA=16384:MD=1:CH=63:CS=31:CC=9:BR=0:B0=0:B1=11:B2=12:WP=0
1410 GOSUB1780:GOSUB1800
1420 WP=1:GOSUB1780:GOSUB1800
1430 WP=0:GOSUB1780:GOSUB1800
1440 WP=3:GOSUB1780:GOSUB1800
1450 WP=4:GOSUB1780:GOSUB1800
1460 WP=5:GOSUB1780:GOSUB1800
1470 WP=6:CH=62:GOSUB1780:GOSUB1800
1480 WP=7:GOSUB1780:GOSUB1800
1490 WP=8:GOSUB1780:GOSUB1800
1500 WP=9:GOSUB1780:GOSUB1800
1510 WP=10:CH=63:GOSUB1780:GOSUB1800
1520 WP=11:GOSUB1780:GOSUB1800
1530 WP=12:CH=62:GOSUB1780:GOSUB1800
1540 WP=13:GOSUB1780:GOSUB1800
1550 REM
1560 REM ** SCREEN WIPES **
1570 REM
1580 SA=16384:MD=1:CH=63:CS=31:CC=9:BR=0:B0=0:B1=11:B2=12:WP=0
1590 GOSUB1780:GOSUB1800
1600 SA=17384
1610 GOSUB1780:GOSUB1800
1620 SA=16384:CC=13:B1=13:B2=3:WP=4
1630 GOSUB1780:GOSUB1800
1640 SA=17384:CC=13:WP=6
1650 GOSUB1780:GOSUB1800
1660 SA=16384:CC=15:B1=8:B2=9:WP=8
1670 GOSUB1780:GOSUB1800
1680 SA=17384:CC=9:B1=11:B2=12:WP=10
1690 GOSUB1780:GOSUB1800
1700 SA=16384:WP=12
1710 GOSUB1780:GOSUB1800
1720 SA=16384:WP=3:CH=63
1730 GOSUB1780
1740 SA=17384:WP=2:CH=63
1750 GOSUB1780:GOSUB1800
1760 WP=15:GOSUB1780
1770 END
1780 SYS49152,SA,MD,CH,CS,CC,B0,B1,B2,BR,WP
1790 RETURN
1800 FORDE=0TO1500:NEXTDE:RETURN